home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / clang / fgl105c.zip / 08-05.C < prev    next >
Text File  |  1991-05-05  |  807b  |  40 lines
  1. #define PAGES 4
  2.  
  3. main()
  4. {
  5.    int old_mode, new_mode;
  6.    int page;
  7.    char string[8];
  8.  
  9.    new_mode = fg_bestmode(80,25,PAGES);
  10.    if (new_mode < 0) {
  11.       printf("This program requires ");
  12.       printf("an 80-column display.\n");
  13.       exit();
  14.       }
  15.  
  16.    old_mode = fg_getmode();
  17.    fg_setmode(new_mode);
  18.    fg_cursor(0);
  19.  
  20.    for (page = 0; page < PAGES; page++) {
  21.       fg_allocate(page);
  22.       fg_setpage(page);
  23.       fg_setcolor(7);
  24.       fg_rect(0,fg_getmaxx(),0,fg_getmaxy());
  25.       fg_setattr(0,7,0);
  26.       fg_locate(12,37);
  27.       sprintf(string,"page %d",page);
  28.       fg_text(string,6);
  29.       }
  30.  
  31.    for (page = 0; page < PAGES; page++) {
  32.       fg_setvpage(page);
  33.       fg_waitkey();
  34.       fg_freepage(page);
  35.       }
  36.  
  37.    fg_setmode(old_mode);
  38.    fg_reset();
  39. }
  40.